program laurentian1
use my_own_da
real(8) x,z

my_order=2
x=3.1415926535897932_8/6.0_8
z=sin(x)
call print(z,6)

write(6,*) " hit return to end "
pause
end program laurentian1